home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung / Power-Programmierung (Tewi)(1994).iso / magazine / progjour / 1987 / 06 / sheltool.def < prev    next >
Text File  |  1987-09-15  |  4KB  |  158 lines
  1. {$Z63,S3,V+,E1,W-,F1,T0}
  2. definition module sheltool(output);
  3. (* copyright 1987, John J. Newlin *)
  4. const
  5.   main_color = 16#0E#;
  6.   curs_color = 16#70#;
  7.   maxfiles = 200;
  8.   up     = 72;   f1 = 59;
  9.   down   = 80;   f2 = 60;
  10.   endkey = 79;   f3 = 61;
  11.   home   = 71;   f4 = 62;
  12.   retkey = 28;   f5 = 63;
  13.   pgup   = 73;   f6 = 64;
  14.   pgdn   = 81;   f7 = 65;
  15.   spce   = 57;   f8 = 66;
  16.   esc    = 1;    f9 = 67;
  17.   tab    = 15;  f10 = 68;
  18.   ins    = 82;
  19.   del    = 83;
  20.   ctrl_end =  117;
  21.   ctrl_home = 119;
  22.   ctrl_pgup = 132;
  23.   horiz      = "─";
  24.   vert       = "│";
  25.   ul         = "┌";
  26.   ur         = "┐";
  27.   ll         = "└";
  28.   lr         = "┘";
  29.   space      = " ";
  30.   windows    = 2;
  31.  
  32. type
  33.   str8 = string[8];
  34.   str12 = string[12];
  35.   str64 = string[64];
  36.   regtype = record
  37.                 ax,bx,cx,dx,di,si,ds,es,flags : integer;
  38.             end;
  39.   {$U0}
  40.   buff_type = record
  41.                 dos_use : array[0..20] of char;
  42.                 attr : char;
  43.                 time,date,losize,hisize : integer;
  44.                 filename  : str12;
  45.               end;
  46.  
  47.   file_type = record
  48.                 attr : char;
  49.                 time,date,losize,hisize : integer;
  50.                 name : str12;
  51.                 desig : integer;
  52.               end;
  53.   file_array = array[1..maxfiles] of file_type;
  54.   dir_array = array[1..windows] of file_array;
  55.   {$U1}
  56.  
  57.   longint = array[0..1] of integer;
  58.   longstring = string[11];
  59.   screenbuff_type = array[1..4000] of char;
  60.  
  61. var
  62. {  files1,files2 : file_array; }
  63.   files : dir_array;
  64.   save_t_time,save_time,attr,seed : integer;
  65.   entry_str : string;
  66.   color : boolean;
  67.   screenbuff : screenbuff_type;
  68.  
  69. function shiftl(target,bits : integer) : integer;
  70.  
  71. function upcase(ch : char) : char;
  72.  
  73. function shiftr(target,bits : integer) : integer;
  74.  
  75. function hi(target : integer) : integer;
  76.  
  77. function lo(target : integer) : integer;
  78.  
  79. procedure exec(var name : string);
  80.  
  81. procedure execute(var command : string);
  82.  
  83. function format_num(long : longint; width : integer) : string;
  84.  
  85. procedure get_files(var mask : string; var files : file_array;
  86.                     var count : integer);
  87.  
  88. function filedate(code : integer) : str12;
  89.  
  90. procedure draw_box(col,row,width,depth : integer);
  91.  
  92. procedure save_cursor;
  93.  
  94. procedure hide_cursor;
  95.  
  96. procedure rest_cursor;
  97.  
  98. function filetime(code : integer) : str12;
  99.  
  100. function convert(var st : str12) : str12;
  101.  
  102. procedure sort_files(var files : file_array; var items : integer);
  103.  
  104. procedure longstr(var long : longint; var strng : longstring);
  105.  
  106. procedure addlong(var total,n1,n2 : longint);
  107.  
  108. function delete_file(addr : integer) : integer;
  109.  
  110. function keycode(var status,ascii,scan : integer) : boolean;
  111.  
  112. procedure scroll(ulx,uly,lrx,lry,lines,attr,dir : integer);
  113.  
  114. procedure savebox(col,row,width,depth,attr : integer);
  115.  
  116. procedure restbox(col,row,width,depth,attr : integer);
  117.  
  118. procedure set_dta(var buffer : buff_type);
  119.  
  120. procedure init_screen;
  121.  
  122. procedure msdos(var regs : regtype);
  123.  
  124. procedure setxy(col,row : integer);
  125.  
  126. procedure screenwrite(col,row,attr : integer; var str : string);
  127.  
  128. procedure fillstr(var str : string; num : integer; ch : char);
  129.  
  130. procedure move(v1addr,v2addr,bytes : integer);
  131.  
  132. function chdir(var dirname : string) : integer;
  133.  
  134. function mkdir(var dirname : string) : integer;
  135.  
  136. function rmdir(var dirname : string) : integer;
  137.  
  138. function findfirst(var pathname : string; attr : integer) : integer;
  139.  
  140. function findnext : integer;
  141.  
  142. procedure cls(attribute : integer);
  143.  
  144. procedure strng(num : integer; var numstr : string);
  145.  
  146. function abs_read(drive,sectors,start,buff_addr:integer):integer;
  147.  
  148. procedure getdir(var path : string);
  149.  
  150. function set_mem : integer;
  151.  
  152. function video_mode : integer;
  153.  
  154. procedure fx(barlen,battr,col,row,attr : integer; var str : string);
  155.  
  156. end.
  157.  
  158.